home *** CD-ROM | disk | FTP | other *** search
/ Megahits 3 / Megahits 3 (1994)(GTI - Rhein-Main-Soft)(DE)[!].iso / transfer / catalogue.dms / catalogue.adf / AUTOEXEC.amos / AUTOEXEC.amosSourceCode next >
AMOS Source Code  |  1978-01-04  |  601b  |  31 lines
  1. Screen Open 0,320,256,16,L
  2. Curs Off : Hide : Print 
  3. Cls 0
  4. _COPYRIGHT[75]
  5. Run "shareware_decl.amos"
  6. Procedure _COPYRIGHT[YDISPLAY]
  7.    '  
  8.    Auto View Off 
  9.    '
  10.    Unpack 10 To 7
  11.    '
  12.    For Y=2 To Screen Height/2 Step 2
  13.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  14.       Screen Offset 7,,Screen Height/2-Y
  15.       View 
  16.       Wait Vbl 
  17.    Next 
  18.    '
  19.    Wait 100
  20.    '
  21.    For Y=Screen Height/2 To 0 Step -8
  22.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  23.       Screen Offset 7,,Screen Height/2-Y
  24.       View 
  25.       Wait Vbl 
  26.    Next 
  27.    '
  28.    Screen Close 7
  29.    Auto View On 
  30.    '
  31. End Proc